﻿Module MessageBoxFactory

    Public Sub exceptionGeneral(ByVal ex As Exception)
        MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Sub

    Public Sub cerrandoFormuladio()
        MessageBox.Show("Cerrar Formulario", "Todos los cambios no guardados se perderan, ¿esta seguro de que desea cerrar el formulario?", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    End Sub

    Public Sub formularioConErrores()
        MessageBox.Show("Existen errores en el ingreso de datos, favor verificar", "Errores en datos", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
    End Sub

End Module
